home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / loanapp.exe / LOANF.BAS < prev    next >
BASIC Source File  |  1993-07-22  |  2KB  |  114 lines
  1. ' COPYRIGHT:
  2. '
  3. '   (C) Copyright Microsoft Corp. 1993.  All rights reserved.
  4. '
  5. '   You have a royalty-free right to use, modify, reproduce and
  6. '   distribute the Sample Files (and/or any modified version) in
  7. '   any way you find useful, provided that you agree that
  8. '   Microsoft has no warranty obligations or liability for any
  9. '   Sample Application Files which are modified.
  10. '
  11. Global CurrentText As String
  12. Global LabelClicked As Integer
  13. Global AddressBox As Integer
  14. Global Start As Integer
  15. Global MSP As Integer
  16.  
  17. Type PopUpA
  18.     A1 As String * 24
  19.     A2 As String * 10
  20.     A3 As String * 10
  21.     A4 As String * 10
  22.     A5 As String * 4
  23.     A6 As String * 4
  24.     A7 As String * 13
  25.     AC1 As Integer
  26. End Type
  27.  
  28. Type PopUpB
  29.     B1 As String * 24
  30.     B2 As String * 15
  31.     B3 As String * 2
  32.     B4 As String * 5
  33.     B5 As String * 3
  34. End Type
  35.  
  36. Type PopUpC
  37.     C1 As String * 24
  38.     C2 As String * 24
  39.     C3 As String * 4
  40.     C4 As String * 4
  41.     C5 As String * 19
  42.     CC1 As Integer
  43. End Type
  44.  
  45. Type PopUpD
  46.     D1 As String * 4
  47.     D2 As String * 8
  48.     D3 As String * 8
  49.     D4 As String * 8
  50.     D5 As String * 6
  51.     D6 As String * 8
  52. End Type
  53.  
  54. Type PopUpE
  55.     E1 As String * 4
  56.     E2 As String * 8
  57.     E3 As String * 8
  58.     E4 As String * 13
  59.     E5 As String * 6
  60. End Type
  61.  
  62. Type PopUpF
  63.     F1 As String * 24
  64.     F2 As String * 14
  65.     F3 As String * 24
  66.     FC1 As Integer
  67. End Type
  68.  
  69. Type PopUpG
  70.     G1 As String * 24
  71.     G2 As String * 11
  72.     G3 As String * 14
  73.     G4 As String * 3
  74.     G5 As String * 2
  75.     G6 As String * 7
  76.     G7 As String * 17
  77.     G8 As String * 10
  78.     GC1 As Integer
  79. End Type
  80.  
  81. Type PopUpH
  82.     H1 As String * 24
  83.     H2 As String * 11
  84.     H3 As String * 14
  85.     H4 As String * 3
  86.     H5 As String * 2
  87.     H6 As String * 7
  88.     H7 As String * 17
  89.     H8 As String * 10
  90.     HC1 As Integer
  91. End Type
  92.  
  93. Type DateRec
  94.     T1 As String * 10
  95.     T2 As String * 10
  96. End Type
  97.  
  98. Type TotalRec
  99.     A As PopUpA
  100.     B As PopUpB
  101.     C As PopUpC
  102.     D As PopUpD
  103.     E As PopUpE
  104.     F As PopUpF
  105.     G As PopUpG
  106.     H As PopUpH
  107.     I As PopUpB
  108.     J As PopUpB
  109.     T As DateRec
  110. End Type
  111.  
  112. Global MainRec As TotalRec
  113.  
  114.